home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Frontier 4.0.1 / Frontier user guide (html) / ospix / alias.gif
Graphics Interchange Format  |  1996-01-25  |  2.5 KB  |  379x196  |  1-bit (2 colors)  |  [GIFf/BABL]
   ocr: on: storeNew Alias 0 local f1 :"" 12: "" ifr not file.getFileDialog ("File to create alias for?",@f1,0) return (false) f2 =1 file.filetromPath (f1) if not dialog.ask ("Save in Apple Menu under what name?", @f2) return (false) file.new Alias (fl,file.getsystemFolderPath 0+":Apple Menu Items:" + f2) speaker .beep 0 dialog.notity ("Done!") return (true)